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NODULE RUVOL (LANGUAGE (BL1SS32) 
IDENT = 'V04=000" 


BEGIN 


lsuateuceuaneatententeennentnenteererererrettettertnetenetneteettnetneteretes 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
} NCLUSION OF THE NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘; orepokation NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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mMrrorrnr 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'4¢ 
' 
FACILITY: MTAACP 
00 i ABSTRACT: 
00 ! This modules rewinds a volume set 
0036 ! 
0037 ! 
sits ENVIRONMENT: 
040 i STARLET operating system, including privileged system services 
0041 ! and internal exec routines. 
R006 ! 
004 lee 
ges 
004 AUTHOR: D. H. GILLESPIE, CREATION DATE: 16-JUL-1977 
0048 : MODIFIED BY: 
0030 i v03-002 mMD0002 meg Dumont 33-Jan-1983 16:15 
051 ! Add modifier I0$M_ LRSEREXCP to all Q10's issued by the MTAACP, | 
O26 : necessary for the MSCP tape drives. 
054 i v03-001 MMDO0001 neg Dumont, 5-Nov-1982 16:42 | 
bee Changed SET_VALID to a Q10 IO$_PACKACK. 
3 i v02-007 DMwW00070 David Michael Walp 20-Jan-1981 
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v02-006 DMw00015 


V02-005 REFORMAT 


Sep- 
1$-sep- 


LIBRARY "SYSSLIBRARY:LIB.L32'; 


REQUIRE ‘SRCS$:MTADEF .B32'; 


FORWARD ROUTINE 
REWIND_AND_WAIT 


REQUEST_UNBLOCK 


REWIND VOL_SET 
SET_AMB_POS 


SET_VALID 


EXTERNAL 
CURRENT_UCB 


CURRENT_WCB 
10_CHANNEL, 
1O~PACKET, 
IO~STATUS. 
USER_STATUS 
EXTERNAL ROUTINE 
PT Ose FILE 
DO_ CANCEL 
SyS$a10 
UNBLOCK; 


: COMMON_CALL, 
: COMMON_CALL NOVALUE, 


: COMMON_CALL NOVALUE, 
: COMMON-CALL NOVALUE, 


: COMMON_CALL NOVALUE; 


: REF BBLOCK, 
: REF BBLOCK, 


: VECTOR (2); 


: LSCLOSE FILE, 
: ADDRESSING MODE (ABSOLUTE), 


1984 99:28:50 DASKSVNSMASTER® 
Added Extra Set Valid in REWIND_AND_WAIT 


David Michael Walp 
Changed calculation of CCB address to GET_CCB 


Maria del C. Nasr 


14-Mar-1981 


30-Jun-1980 


rewind A ware for 
complet 

AST to handles completion of 
rewind 

rewind volume set 

set the position of vol set 
to ambiguous 

set valid bit 


address of current unit 
control bloc 

address of cureent window 
control block 

ACP I0 channel 

egerose of current 10 packet 

stat 
user 10 seates 


block current request 
close a fi 


unblock a request 


42 
ACP.SRCIRWVOL. B32: r 
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H 9 
1eageen 188s 93:28:88 Phd Shag fens chtakce’$ 


p 3 
AACP. SRCIRWVOL.B32:1) (2) 


3 , 48) } GLOBAL ROUTINE REWIND_VOL_SET : COMMON_CALL NOVALUE = : 
; 101 4, j 1 44 ; 
3; (1 § 484 1! : 
3 3 485 1°! FUNCTIONAL DESCRIPTION: ; 
3; (1 4, 1! This routine rewinds the volumes in a volume set ° 
; 105 1! waits for the completion of the rewind of volume one . 
; } } : and sets the current volume set position to ambiguous : 
; 108 1 ! CALLING SEQUENCE: ; 
; 13 $3) : } REWIND_VOL_SET() : 
; 4 3 1 ! INPUT PARAMETERS: : 
3 118 9% «1! none : 
.. ae we 5 
; «6116 rp 1 ! IMPLICIT INPUTS: 3 
: 6115 mw CURRENT_VCB = address of current volume control block : 
: 118 38 : } CURRENT_WCB = address of current window control block : 
; «6118 500 1 ! OUTPUT PARAMETERS: : 
: 119 0501 1! none ; 
; 120 Beng 1! ; 
s 21 50 1 ! IMPLICIT OUTPUTS: é 
3; (3 ; 0506 1! volumes rewound 2 
3 : Z Bens ; } current relative volume number and channel set to first volume . 
3s 125 bag$ 1 ! ROUTINE VALUE: ; 
; 126 0508 1! none : 
: 127 0509 1! : 
; 128 0510 1 ! SIDE EFFECTS: 3 
; 129 0511 1! SS$_FILALRACC = can not rewind volume set if a file is currently accessed : 
; ! : p21¢ : } SSS_FCPREWNDERR = file control process rewind error : 
.- % ¢ ba14 1 le : 
ft Bat? 1 ; 
os aie BEGIN ; 
; 339 051 : 
s gals EXTERNAL REGISTER : 
; ! 3h 4 COMMON_REG; : 
3; 139 521 EXTERNAL ROUTINE 3 
3 139 2 § GET_CCB; ' calculate the address of the CCB : 
: 146 03 4 LOCAL : 
: 14 5 MVL : REF BBLOCK, ! address of MVL control block 3 
3 «61446 B2 $ NVOLS !' number of volumes in volume set é 
> 145 5 VOLLIST : REF BBLOCKVECTOR C, MVLSK_LENGTH], |! volume List in MVL ; 
; 168 5 3 ccB : REF ‘ ' channel control block g 
3 Hes 3 UCBLIST : REF VECTOR; ! UCB List : 
3 4 2 1 | first make sure that there are no files accessed ‘ 
s 131 5 : 3 
; 138 3 ‘ IF .CURRENT_WCB NEQU 0 : 
: 184 5 $ ERR_EXIT(SS$_FILALRACC); : 
; 155 5 : 
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e CURRENT VCBCVCBSV_PARTF ILE) 
CLOSE_FILE(); 
setup pointers to interesting structures 


MVL = .CURRENT_V BCvCESL as 
NVOLS = .M AVL CAML $B uy ti 
VOLLIST = mL Sk 


, LEN 
UCBLIST 2 GsUScKC. CURRENT =vestycoss RVT], RVT$L_UCBLST); 
CCB = KERNEL_CAL CCB, HARNEL 5; 
KERNEL KCALL SET. tina gOS), 


now issue rewinds 


WN —OOOND 


RA ey 


o 
“ 


DECR I FROM .NVOLS TO 0 DO 
BEGIN 


IF .VOLLISTC.1, MVLSV_MOUNTED) 
THEN 
BEGIN 
assign channel 
CCBCCCBSL_UCB) = .UCBLISTC.VOLLISTC.1, MVL$B_RVNI); 
35 NEQU 0 ! don't wait for all but first 


SO1OW(CHAN « . 10_ CHANNEL 
= 10$_REWIND eb 1OSM_NOWAIT OR IOSM_CLSEREXCP) 
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SOOCSOSSSOOOOOCOOOOOCOO OOOO OOOOOO OOOO OOOOOO 


pteeieeteen ener We TS 
uw 


WNW BRUNE EEE EEE SE PWWIWIUORONoNoRonononofnonorornofnornonononn 


PESSESERERORAS ass ISSElS 


$6 

48 

69 ELSE 

20 REWIND_AND_WAIT(); 

re END; 

7 

7% END; 

75 

76 END; 
.TITLE RWVOL 
[IDENT \V04-000\ 
.EXTRN CURRENT UCB, CURRENT WCB 
“EXTRN I hc KET 
“EXTRN 107 STATUS “USER STATUS 
*EXTRN BL LOCK. ¢ LOSE FICE 
-EXTRN 0. CANCEL “S¥ssdi0 
eEXTRN ONE OCcK cB 
SEXTRN SYS ohnhe SYS$Q10W 


-PSECT SCODES,NOWRT,2 
-ENTRY ausySkemck SET, Save R2,R3,R4,R5,R6,R10 ; 0481 


0 
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Routine Base: $CODE$ + 0000 


144 bytes, 


0577 1 


; Routine Size: 


o-Se “19 :3 X-11 s-32 V4.0-742 
FO. 500 15-Se0-1984 96: ig Hi bts aKSV nen TER: CMTAACP.SRCIRWVOL. B32. : 
: 137 q } GLOBAL ROUTINE SET_AMB_POS : COMMON_CALL NOVALUE = 
; 138 } i++ 
; of ¢ 1 ' FUNCTIONAL DESCRIPTION: 
: 4 : : This routine set the position of the volume set to ambiguous 
5 204 585 1 | CALLING SEQUENCE: 
3 05 2 ; SET ANG tele P 
; ! ca n kernel mode 
4 oF 2 $ i i INPUT PARAMETERS 
: 209 2 01 none : 
3 10 591 1! 
; 11 B28 1 ! IMPLICIT INPUTS: 
; \¢ B2a7 : } CURRENT_VCB = address of current volume control block 
: 214 0595 1 |! OUTPUT PARAMETERS: 
: 215 B298 1! none 
3 16 0597 1! 
3 17 0598 1 =! IMPLICIT OUTPUTS: 
; 218 0599 1! none 
3 19 0600 1! 
3 $9 0601 1 ! ROUTINE VALUE: 
3 1 Beng 1! none 
3 $6 603 1! 
3 2 0604 1 ! SIDE EFFECTS: 
; 224 0605 1! none 
3 $2 06 1! 
5 3 6 607 1 !<- 
3; 227 608 1 
FY $$6 060 BEGIN 
3 $3 0610 
; 0611 EXTERNAL REGISTER 
: H bers COMMON_REG; 
; ‘ 0614 CURRENT_VCBCVCB$B_TM) = 0; 
: 0615 CURRENT-VCBLVCBS$L_ST RECORD] = 0; 
3 35 0616 CURRENT _VCB VCB$V_LOGICEOVS = 0; 
; 23 0617 CURRENT_VCBCVCB$B_CUR_ vA = 0; 
: $ dt ‘ SURAENT “VCBCVCBSL_CUR_FIDJ = 0; 


0000 00000 -ENTRY SET_AMB_POS, Save nothing 
2 AB 94 0008 CLRB © 46 (CURRENT_VCB) 
AB 4 CLRL 4 (CURRENT vCB) 
0B AB A 08 BICB2 #2, 11(CURRENT_VCB) 
3 AB 94 C CLRB = 47 (CURRENT_VCBY 
4 AB p4 0 OF CLRL § 36(CURRENT~VCB) 
4 00012 RET 


; Routine Size: 19 bytes, Routine Base: $CODE$ + 0090 


$3 
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VAX-11 Bliss-32 V4.0 
DISKSVMSMASTER:CMTAA 


: re. $ 1 } GLOBAL ROUTINE REQUEST_UNBLOCK (VCB) : COMMON_CALL NOVALUE = 
: 26 6 i 1 !+4 

3: 246 624 1! 

F 45 625 1 ! FUNCTIONAL DESCRIPTION: 

; re 8 : Handles requests to unblock current volume operation 
3; 248 6 8 1 ! CALLING SEQUENCE: 

H ri 3 : REWIND_DONE (ARG1) 

HY 24 0631 1 ! INPUT PARAMETERS: 

3 26 ° ¢ ! } ARG1 = address of VCB 

H 54 634 1 ! IMPLICIT INPUTS: 

$ 22 2 ; : saved stack and impure area 

3 3 8 7 1 =! OUTPUT PARAMETERS: 

; 258 0638 1! none 

; 259 3 9 1! 

; 260 640 1 ! IMPLICIT OUTPUTS: 

: 261 0641 1! none 

3 o¢ Bee¢ 1! 

; 6 064 1 ! ROUTINE VALUE: 

; 264 0644 1! none 

3; 265 0645 1! 

; 66 0646 1 ! SIDE EFFECTS: 

3; 267 0647 1! never returns to PC where AST's were enabled 

$ $08 Rote : instead it resumes where the blocked request left off 
: 370 0650 1 !-- 

s ei 362) 1 

3 Le: O26 BEGIN 

: 7 082 

; 74 54 EXTERNAL REGISTER 

3; 275 0655 COMMON_REG; 

: 76 0656 

3 As +4 CURRENT_VCB = .VCB; ' restore VCB 
3 79 ety IF_ .CURRENT_VCBCVCB$V_CANCELIOJ 

; 280 0660 THEN 

3; 281 0661 BEGIN 

3 Ht 666 ERROR(SS$_CANCEL); 

; 28 66 KERNEL_CACL(DO_CANCEL); ' cancel 10 

3 Se : 10_PACRET = 0; ! no request packet to process 
; 286 . 

3 4 Ose? : END; 

5 4 0s ; ‘ SCR CTs ! unblock and continue were request processing left off 


000 000 -ENTRY REQUEST LOCK, Save noth 
§ boo02 MOVE VEB. CURRENT WCB 


742 Pa 8 
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i : 0621 
“s. 3 $62) 


nN 9 
16-Sep-1984 02:32: VAX-11 Bliss-32 V4.0-742 Page 9 
VO eb00 12-808-1 3b 96:38:38 DISKSVMSMASTER:CMTAACP. SRCIRWVOL.B32: 1) (43 
AB 5 €1 00006 BBC #5, 11(CURRENT_VCB), 1$ : 0659 
00086 CF 0830 BF 80 0008 MOVW #2096, USER_STATUS + 066 
E 04 0001 CLRL = = (SP) + 066 
5E pp 14 PUSHL SP : 
00006 CF 9F 00016 PUSHAB DO_ CANCEL ; 
000000006 9F 03 FB OOO1A CALLS #3, a@#SYSSCMKRNL ; 
00006 CF pA 1 CLRL —«: 10. PACKET + 0664 
4 5 RET : 0661 
00006 CF 00 FB 6 1$: CALLS #0, UNBLOCK + 0669 
04 8 RET ; 0670 


; 291 0671 1 


3; Routine Size: 44 bytes, Routine Base: S$CODES + 00A3 


10 

RWV ibese -1984 02:32: VAX-11 Bliss-32 V4.0-742 Page 10 

v04- 12288-1382 95:32:38 DISKSVMSMASTER: CMTAACP. SRCIRWVOL.B32:1> (5) 

; 3? ore ! GLOBAL ROUTINE REWIND_AND_WAIT : COMMON_CALL = 

; 295 674 1 !+4 

; 296 675 1! 

: 297 p678 1 ! FUNCTIONAL DESCRIPTION: 

; 298 677 1! This routine rewinds the unit assigned to IO_CHANNEL 

; RB bees : and waits for completion of the rewind 

; 301 $eg0 1! CALLING SEQUENCE: 

; 0¢ 0681 1 i REWIND_AND_WAIT() 

a... ret) 3 

H 04 bes 1 ! INPUT PARAMETERS: 

; 305 684 1! none 

; 306 0685 1! 

3; 307 0686 1 ! IMPLICIT INPUTS: 

: 308 0687 1! CURRENT _VCB = address of current volume control block 

; 309 0688 1 ! IO_CHANNEL = ACP IO channel 

3; 310 0689 1! 

s 3511 0690 1 ! OUTPUT PARAMETERS: 

3 $\¢ 0691 1! none 

: 3 0692 1! 

; 314 0695 1 ! IMPLICIT OUTPUTS: 

: Fe 0694 1! none 

; 316 0695 1! 

s Si7 0696 1 ! ROUTINE VALUE: 

; 318 0697 1! 0 - unit off_line 

; 319 0698 1! 1 = successful 

3 20 0699 1! 

: 321 0700 1 ! SIDE EFFECTS: 

5 $56 0701 1! none 

s we 0702 1! 

: 326 0703 1 !-- 

s 325 0704 1 

4 358 0705 $ BEGIN 

s Ser 0706 

; 328 0707 2 EXTERNAL REGISTER 

; $3 0708 2 COMMON ; 

3 0 0709 2 

; 31 0710 2 LOCAL 

; $36 14h § STATUS; ' status of 10 

; 334 P ak 2 STATUS = $Q10W( CHAN = .IO_CHANNEL, 

; 35 P 0714 2 FUNC = IO$_PACKACK OR IOSM_CLSEREXCP, 

: $38 ort § 10SB = I0_ STATUS); 

; 716 SYS$QI10(0, .IO_CHANNEL, IO$_REWIND OR fOOR_SLSERERE?, 

; 338 0717 BELOCKE . CURRENT VCBIVCBSL_VPFLJ, 

3 39 0718 VVPS$L_STATUS), REQUEST UNBLOCK, -CURRENT_VCB, 0,0,0,0,0,0); 

3 40 719 BLOCK ($F IELDMASK (VCBSV MATREULRD) 2 

: rh rey STATUS = -BBLOCKC. CURRENT_VCB VCBSL_VPFLJ, VVPSL_STATUS); 

; 4$ g ; IF .STATUS<O, 16> EQL SS$_MEDOFL | 

3 rH g 3 4 SANS, 16> EQL SS$_VOLINV | 

s 4 7 $ RETURN 0; 

: 348 07 

; 349 728 IF NOT .STATUS | 
| 
| 
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RETURN 1; 
END; 
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; Routine Size: 33 bytes, Routine Base: SCODE$ + 0160 

; 404 7 1 END 

; 405 Ores 1 

: 406 784 0 ELUDOM 

; SCODES 398 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; scconnese SyYERO(§ cooccese Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 35 0 1000 00:01.9 

H COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RWVOL/OBJ=OBJ$:RWVOL MSRC$:RWVOL/UPDATE=(ENH$:RWVOL) 
Size: 398 code + 0 data bytes 

; Run Time: r1g-4 

; Flapsed Time: 


781 
: loneeeuoiidiies 22543 
; Memory Used: 110 pages 


; Compication Complete 


PSECT SUMMARY 
Name Bytes Attributes 
> Lines/CPU Min: 
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